home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / mail / mailx6 / _setup.1 / OCXSYSTE.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-02-02  |  2.7 KB  |  87 lines
  1. VERSION 4.00
  2. Begin VB.Form SystemX 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "Mail X System"
  6.    ClientHeight    =   2790
  7.    ClientLeft      =   2835
  8.    ClientTop       =   3030
  9.    ClientWidth     =   3720
  10.    BeginProperty Font 
  11.       name            =   "MS Sans Serif"
  12.       charset         =   0
  13.       weight          =   700
  14.       size            =   8.25
  15.       underline       =   0   'False
  16.       italic          =   0   'False
  17.       strikethrough   =   0   'False
  18.    EndProperty
  19.    Height          =   3165
  20.    Left            =   2790
  21.    LinkTopic       =   "Form3"
  22.    MaxButton       =   0   'False
  23.    MinButton       =   0   'False
  24.    ScaleHeight     =   2790
  25.    ScaleWidth      =   3720
  26.    ShowInTaskbar   =   0   'False
  27.    Top             =   2700
  28.    Width           =   3810
  29.    Begin VB.CommandButton Continue 
  30.       Caption         =   "&Continue"
  31.       Height          =   435
  32.       Left            =   360
  33.       TabIndex        =   4
  34.       Top             =   2040
  35.       Width           =   3135
  36.    End
  37.    Begin VB.Frame Frame1 
  38.       BackColor       =   &H00C0C0C0&
  39.       Caption         =   "Select Your Mail System:"
  40.       Height          =   1680
  41.       Left            =   375
  42.       TabIndex        =   0
  43.       Top             =   135
  44.       Width           =   3030
  45.       Begin VB.OptionButton POP3_SMTP 
  46.          Caption         =   "POP3 / SMTP"
  47.          Height          =   255
  48.          Left            =   480
  49.          TabIndex        =   3
  50.          Top             =   1200
  51.          Width           =   2175
  52.       End
  53.       Begin VB.OptionButton VIM 
  54.          BackColor       =   &H00C0C0C0&
  55.          Caption         =   "VIM (cc:Mail)"
  56.          Height          =   495
  57.          Left            =   480
  58.          TabIndex        =   2
  59.          Top             =   690
  60.          Width           =   2175
  61.       End
  62.       Begin VB.OptionButton MSMAIL 
  63.          BackColor       =   &H00C0C0C0&
  64.          Caption         =   "Microsoft Exchange"
  65.          Height          =   375
  66.          Left            =   480
  67.          TabIndex        =   1
  68.          Top             =   330
  69.          Width           =   2205
  70.       End
  71.    End
  72. Attribute VB_Name = "SystemX"
  73. Attribute VB_Creatable = False
  74. Attribute VB_Exposed = False
  75. Private Sub Continue_Click()
  76.     If MsMail.Value = True Then
  77.         SessionForm.MSess1.Mail_Type = SESSION_MSMAIL
  78.     ElseIf VIM.Value = True Then
  79.         SessionForm.MSess1.Mail_Type = SESSION_VIM
  80.     Else
  81.         SessionForm.MSess1.Mail_Type = SESSION_POP3SMTP
  82.     End If
  83.     Unload Me
  84. End Sub
  85. Private Sub Option1_Click()
  86. End Sub
  87.